home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ GooleBarClear.xpl < prev    next >
Encoding:
XSetup plugin  |  2003-07-22  |  1.4 KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Clear"
  5. "NAME"="Clear Google Toolbar History"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear Search History"
  9. "DESCRIPTION 1"="This plug-in will allow you to wipe the list of previous search items from your Google toolbar in Internet Explorer.  The free Google Toolbar can be obtained at http://toolbar.google.com/"
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="Plug-in by CptSiskoX "
  14.  
  15.  
  16. 'Declaration of some constants
  17. sP1="HKEY_CURRENT_USER\Software\Google\NavClient\1.1\History\"
  18.  
  19. bShowMessage=true
  20.  
  21. 'Called when the Plugin is started
  22. Sub Plugin_Initialize
  23. End Sub
  24.  
  25. 'Called when the Plugin should validate the Data the user has entered
  26. Sub Plugin_CheckData(ElementIndex)
  27. End Sub
  28.  
  29. 'Called when the Plugin should apply the changes
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  Select Case ElementIndex
  32.  Case 1 'run
  33.  
  34.   i=RegEnumValues(sp1)
  35.   for l=1 to i
  36.    Call RegDeleteValue(sp1 & RegEnumElement(l))
  37.   Next
  38.  
  39.  
  40.  end Select
  41.  
  42.  
  43.  if bShowMessage=true then 
  44.     Call MsgInformation("Your Google Search Bar History Has Been Eliminated.") 
  45.     Call Restart
  46.  end if
  47. End Sub
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. Sub Plugin_Terminate
  51. End Sub
  52.